home *** CD-ROM | disk | FTP | other *** search
/ CICA 1993 April / CICA MS Windows - April 1993.iso / unzipped / programr / listings / ptv2n5 / bigimage.bas < prev    next >
BASIC Source File  |  1991-09-09  |  1KB  |  49 lines
  1. Sub Command3_Click ()        ' "CREATE A BIG BITMAP" BUTTON
  2.  
  3.   ' Creates a bitmap that is allegedly 12 x 12 inches.
  4.   ' But Windows Paintbrush can "use printer resolution"
  5.   ' and make it 300 dpi, about 4 x 4 inches.
  6.  
  7.   Screen.MousePointer = 11   ' HOURGLASS CURSOR
  8.  
  9.   Picture1.ScaleMode = 5     ' SCALE IN INCHES
  10.   
  11.   Picture1.AutoRedraw = -1   ' IT'S A BITMAP PICTURE
  12.   
  13.   Picture1.AutoSize = -1
  14.   Picture1.Height = 12 * 1440 ' in twips!
  15.   Picture1.Width = 12 * 1440
  16.  
  17.      ' Picture1 is bigger than the screen.
  18.      ' No problem.
  19.  
  20.   Picture1.Cls
  21.  
  22.   Picture1.DrawWidth = 3     ' DRAW CIRCLES
  23.   Picture1.Circle (6, 6), 4.5
  24.   Picture1.DrawWidth = 1
  25.   Picture1.Circle (6, 6), 4.35
  26.  
  27.   Pi# = 3.1415926537         ' DRAW LISSAJOUS FIGURE
  28.   x = 6
  29.   y = 6 + 3
  30.   Picture1.PSet (x, y)
  31.   For t# = 0 To Pi# * 32.1 Step Pi# / 64
  32.     x = 6 + 3 * Sin(t#)
  33.     y = 6 + 3 * Cos(t# * 1.0625)
  34.     Picture1.Line -(x, y)
  35.     s% = DoEvents()
  36.   Next t#
  37.  
  38.   m$ = "PC Techniques"       ' PRINT LABEL
  39.   Picture1.FontSize = 36
  40.   Picture1.CurrentY = 9.15
  41.   Picture1.CurrentX = 6 - Picture1.TextWidth(m$) / 2
  42.   Picture1.Print m$
  43.  
  44.   SavePicture Picture1.Image, "EXAMPLE2.BMP"
  45.  
  46.   Screen.MousePointer = 0    ' NORMAL CURSOR
  47.  
  48. End Sub
  49.